Summit/Summit Recordable CD-ROM.ISO/screen/intro.spr

Text File | 1994-08-10 | 8.2 KB | 247 lines

*       *********************************************************
*       *
*       * 08/10/94              INTRO.SPR                13:23:07
*       *
*       *********************************************************
*       *
*       * Author's Name
*       *
*       * Copyright (c) 1994 Company Name
*       * Address
*       * City,     Zip
*       *
*       * Description:
*       * This program was automatically generated by GENSCRN.
*       *
*       *********************************************************


#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat

IF SET("TALK") = "ON"
    SET TALK OFF
    m.talkstat = "ON"
ELSE
    m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS

m.rborder = SET("READBORDER")
SET READBORDER ON

*       *********************************************************
*       *
*       *               Windows Window definitions
*       *
*       *********************************************************
*

MODIFY WINDOW SCREEN ;
    AT  -0.385, 32.800  ;
    SIZE 33.077,127.200 ;
    TITLE "Summit Catalogs" ;
    FONT "MS Sans Serif", 8 ;
    NOFLOAT ;
    NOCLOSE ;
    NOMINIMIZE ;
    COLOR RGB(,,,255,255,255) ;
    ICON FILE LOCFILE("SCREEN\SUMMIT.ICO","ICO", ;
        "Where is summit?")
MOVE WINDOW SCREEN CENTER
CLEAR

*       *********************************************************
*       *
*       *          INTRO/Windows Setup Code - SECTION 2
*       *
*       *********************************************************
*

#REGION 1
PUBLIC DONE
set status bar off
Done = .F.


*       *********************************************************
*       *
*       *               INTRO/Windows Screen Layout
*       *
*       *********************************************************
*

#REGION 1
@ 24.692,98.000 SAY (LOCFILE("logo.bmp","BMP|ICO|PCT|ICN", "Where is logo?" )) BITMAP ;
    SIZE 7.769,26.600 ;
    ISOMETRIC ;
    STYLE "T"
@ 24.692,1.800 SAY "Produced by:" + CHR(13) + ;
        "CD-ROM, Inc." + CHR(13) + ;
        "603 Park Point Dr." + CHR(13) + ;
        "Suite 110" + CHR(13) + ;
        "Golden, CO  80401" + CHR(13) + ;
        "Tel: [phone]" + CHR(13) + ;
        "Fax: [phone]" ;
    SIZE 7.000,18.800, 0.000 ;
    PICTURE "@I" ;
    FONT "MS Sans Serif", 8 ;
    STYLE "T"
@ 3.462,111.800 SAY "P.O. Box 37108" ;
    FONT "MS Sans Serif", 8 ;
    STYLE "T"
@ 4.538,109.000 SAY "Denver, CO 80237" ;
    FONT "MS Sans Serif", 8 ;
    STYLE "T"
@ 10.462,49.800 GET M.Main ;
    PICTURE "@*VN Search Manu\<facturers;\<Search Products;Search \<UPC Numbers;\<Manufacturers Index;\<Producers Index" ;
    SIZE 1.769,22.667,0.615 ;
    DEFAULT 1 ;
    FONT "MS Sans Serif", 8 ;
    STYLE "B" ;
    VALID _qsg0sp66l()
@ 28.462,43.800 GET M.Quiting ;
    PICTURE "@*HN \<Instructions;E\<xit" ;
    SIZE 2.077,13.167,6.667 ;
    DEFAULT 1 ;
    FONT "MS Sans Serif", 8 ;
    STYLE "B" ;
    VALID _qsg0sp6ki()
@ 0.077,0.000 SAY (LOCFILE("summit2.bmp","BMP|ICO|PCT|ICN", "Where is summit2?" )) BITMAP ;
    SIZE 6.154,48.800 ;
    ISOMETRIC ;
    STYLE "T"
@ 1.462,18.800 TO 1.462,34.200 ;
    PEN 1, 8 ;
    STYLE "1"
@ 2.385,2.400 TO 2.385,42.200 ;
    PEN 1, 8 ;
    STYLE "1" ;
    COLOR RGB(255,255,255,255,255,255)
@ 1.692,4.200 TO 1.692,44.400 ;
    PEN 1, 8 ;
    STYLE "1" ;
    COLOR RGB(255,255,255,255,255,255)
@ 3.308,41.400 TO 3.308,127.200 ;
    PEN 1, 8 ;
    STYLE "1"
@ 3.077,41.400 TO 3.077,127.200 ;
    PEN 1, 8 ;
    STYLE "1"
@ 3.154,39.400 TO 3.154,127.200 ;
    PEN 1, 8 ;
    STYLE "1"
@ 3.000,39.400 TO 3.000,127.200 ;
    PEN 1, 8 ;
    STYLE "1"
@ 2.846,38.000 TO 2.846,127.200 ;
    PEN 1, 8 ;
    STYLE "1"



READ CYCLE ;
    ACTIVATE _qsg0spaun()

MODIFY WINDOW SCREEN

#REGION 0

SET READBORDER &rborder

IF m.talkstat = "ON"
    SET TALK ON
ENDIF
IF m.compstat = "ON"
    SET COMPATIBLE ON
ENDIF


*       *********************************************************
*       *
*       *               INTRO/Windows Cleanup Code
*       *
*       *********************************************************
*

#REGION 1
POP MENU _MSYSMENU

*       *********************************************************
*       *
*       * _QSG0SP66L           M.Main VALID
*       *
*       * Function Origin:
*       *
*       * From Platform:       Windows
*       * From Screen:         INTRO,     Record Number:    6
*       * Variable:            M.Main
*       * Called By:           VALID Clause
*       * Object Type:         Push Button
*       * Snippet Number:      1
*       *
*       *********************************************************
*
FUNCTION _qsg0sp66l     &&  M.Main VALID
#REGION 1
DO CASE
    CASE M.Main = 1
        do manufact.spr
    CASE M.Main = 2
        DO MAIN.SPR
    CASE M.Main = 3
        DO UPC.spr
    CASE M.Main = 4
        DO MANIDX.spr
    CASE M.Main = 5
        DO PROIDX.SPR
ENDCASE

*       *********************************************************
*       *
*       * _QSG0SP6KI           M.Quiting VALID
*       *
*       * Function Origin:
*       *
*       * From Platform:       Windows
*       * From Screen:         INTRO,     Record Number:    7
*       * Variable:            M.Quiting
*       * Called By:           VALID Clause
*       * Object Type:         Push Button
*       * Snippet Number:      2
*       *
*       *********************************************************
*
FUNCTION _qsg0sp6ki     &&  M.Quiting VALID
#REGION 1
DO CASE
    CASE M.Quiting = 1
        DO instr.spr
    CASE M.Quiting = 2
        QUIT
ENDCASE

*       *********************************************************
*       *
*       * _QSG0SPAUN           Read Level Activate
*       *
*       * Function Origin:
*       *
*       *
*       * From Platform:       Windows
*       * From Screen:         INTRO
*       * Called By:           READ Statement
*       * Snippet Number:      3
*       *
*       *********************************************************
*
FUNCTION _qsg0spaun     && Read Level Activate
*
* Activate Code from screen: INTRO
*
#REGION 1
IF Done = .F.
    DO disclm.spr
    DONE = .T.
ENDIF